Komunikace Client-Server

Otázka od: S-m-i-s-e-k

29. 11. 2002 15:46

Dobry vecer,
jsem v Delphi zacatecnikem a mam mensi otazecku:
Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
Diky moc
Smisek
s-m-i-s-e-k@seznam.cz

Odpovedá: Robert Suska

29. 11. 2002 16:39

Ahoj!


> Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
> TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???


Takto - pisem z hlavy ak je tam nejaka chybicka tak sorry

type ...
 procedure Connect;
 procedure Disconnect;
 proceure SendData;
 procedure ReadText(Sender: TObject; Socket: TWinCustomizeSocket);
end;

var CS: TClientSocket;
      text: String;

procedure TNieco.Connect;
begin
 CS:= TClientSocket.Create(self);
 CS.OnRead:= ReadText;
 CS.Host:= '192.168.100.3';
 CS.Port:= 5555;
 CS.Active:= True;
end;

procedure TNieco.Disconnect;
begin
 CS.Socket.Close;
 CS.Close;
 CS.Free;
end;

procedure TNieco.ReadText;
begin
 text:= Socket.ReceiveText;
end

procedure TNieco.SendData;
begin
  CS.Socket.SendText('tento text posles na nejaky server socket');
end;

a serverscoket este ma take jedno pole clientskych pripojeni cez ktore mozes
poslat jednotlivym clientom data podla nejakeho id

Ahoj Robo

Odpovedá: Lukas Benda

29. 11. 2002 16:36

Myslim, ze na tehle strance je toho celkem hodne o spouste veci okolo
Delphy.

http://www.builder.cz

S-m-i-s-e-k wrote:

>Dobry vecer,
>jsem v Delphi zacatecnikem a mam mensi otazecku:
>Jak odeslu a prijmu data typu string s ClientSocket/ServerSocket nebo
>TcpClient/TcpServer a nebo pomoci neceho jineho (ceho) ???
>Diky moc
>Smisek
>s-m-i-s-e-k@seznam.cz
>
>
>
>
>